home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n18.arc / SNIPPER.BAS < prev    next >
BASIC Source File  |  1987-12-08  |  16KB  |  229 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE snipper.COM
  2. 110 OPEN "snipper.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  208 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 171923 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,   126,     5,    83,    78,    73,    80,    80,   758
  22. 300 DATA     69,    82,    32,    49,    46,    49,    32,    40,   399
  23. 310 DATA     99,    41,    32,    49,    57,    56,    55,    32,   421
  24. 320 DATA     90,   105,   102,   102,    32,    67,   111,   109,   718
  25. 330 DATA    109,   117,   110,   105,    99,    97,   116,   105,   858
  26. 340 DATA    111,   110,   115,    32,    67,   111,    46,    13,   605
  27. 350 DATA     10,    72,   111,   116,   107,   101,   121,    32,   670
  28. 360 DATA    105,   115,    32,    65,    76,    84,    45,    87,   609
  29. 370 DATA     13,    10,    36,    26,    84,   111,   109,    32,   421
  30. 380 DATA     75,   105,   104,   108,   107,   101,   110,    65,   775
  31. 390 DATA    108,   114,   101,    97,   100,   121,    32,    73,   746
  32. 400 DATA    110,   115,   116,    97,   108,   108,   101,   100,   855
  33. 410 DATA     13,    10,    36,    82,   101,   113,   117,   105,   577
  34. 420 DATA    114,   101,   115,    32,    68,    79,    83,    32,   624
  35. 430 DATA     50,    46,    48,    43,    13,    10,    36,     0,   246
  36. 440 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  37. 450 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  38. 460 DATA     69,   110,   116,   101,   114,    32,    70,   105,   717
  39. 470 DATA    108,   101,   110,    97,   109,   101,    58,    32,   716
  40. 480 DATA     83,    67,    82,    69,    69,    78,    46,    67,   561
  41. 490 DATA     85,    84,     0,     0,     0,     0,     0,     0,   169
  42. 500 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  43. 510 DATA      0,   129,     6,   129,     6,   131,    14,     0,   415
  44. 520 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  45. 530 DATA      0,   201,   205,   205,   205,   205,   205,   205,  1431
  46. 540 DATA    205,   205,   205,   205,   187,   186,    32,    70,  1295
  47. 550 DATA     32,    45,    32,    70,   105,   108,   101,    32,   525
  48. 560 DATA    186,   186,    32,    80,    32,    45,    32,    80,   673
  49. 570 DATA    114,   105,   110,   116,   186,   186,    32,    83,   932
  50. 580 DATA     32,    45,    32,    83,    97,   118,   101,    32,   540
  51. 590 DATA    186,   186,    32,    71,    32,    45,    32,    71,   655
  52. 600 DATA    101,   116,    32,    32,   186,   186,    69,   115,   837
  53. 610 DATA     99,    45,    32,    81,   117,   105,   116,    32,   627
  54. 620 DATA    186,   200,   205,   205,   205,   205,   205,   205,  1616
  55. 630 DATA    205,   205,   205,   205,   188,    51,   219,   139,  1417
  56. 640 DATA     22,   183,     1,     2,   247,     2,   211,   128,   796
  57. 650 DATA    250,     0,   125,     7,    38,   138,    22,    74,   654
  58. 660 DATA      0,   254,   202,    38,    58,    22,    74,     0,   648
  59. 670 DATA    114,     2,    50,   210,   128,   254,     0,   125,   883
  60. 680 DATA      5,    38,   138,    54,   132,     0,    38,    58,   463
  61. 690 DATA     54,   132,     0,   126,     2,    50,   246,   137,   747
  62. 700 DATA     22,   183,     1,   232,    72,     1,    50,   228,   789
  63. 710 DATA    205,    22,    80,   232,    64,     1,    88,   128,   820
  64. 720 DATA    252,     1,   117,     1,   195,   187,     0,   255,  1008
  65. 730 DATA    128,   252,    72,   116,   178,   187,     0,     1,   934
  66. 740 DATA    128,   252,    80,   116,   170,   187,     1,     0,   934
  67. 750 DATA    128,   252,    77,   116,   162,   187,   255,     0,  1177
  68. 760 DATA    128,   252,    75,   116,   154,    51,   219,    60,  1055
  69. 770 DATA     13,   117,    13,   139,    22,   183,     1,   137,   625
  70. 780 DATA     22,   185,     1,   232,     8,     1,   235,    13,   697
  71. 790 DATA    128,   252,    34,   116,     2,   235,   128,   198,  1093
  72. 800 DATA      6,   189,     1,     1,   195,    50,   228,   205,   875
  73. 810 DATA     22,   139,    22,   185,     1,   128,   252,    72,   821
  74. 820 DATA    116,    60,   128,   252,    80,   116,    71,   128,   951
  75. 830 DATA    252,    77,   116,    24,   128,   252,    75,   116,  1040
  76. 840 DATA      3,   235,    85,   144,   254,   202,    58,    22,  1003
  77. 850 DATA    183,     1,   124,   217,   136,    22,   185,     1,   869
  78. 860 DATA    254,   194,   235,    13,   254,   194,    38,    58,  1240
  79. 870 DATA     22,    74,     0,   115,   200,   136,    22,   185,   754
  80. 880 DATA      1,   232,   186,     0,   254,   206,    58,    54,   991
  81. 890 DATA    184,     1,   125,   245,   235,   183,   254,   206,  1433
  82. 900 DATA     58,    54,   184,     1,   124,   175,   136,    54,   786
  83. 910 DATA    186,     1,   254,   198,   235,    13,   254,   198,  1339
  84. 920 DATA     38,    58,    54,   132,     0,   127,   158,   136,   703
  85. 930 DATA     54,   186,     1,   232,   144,     0,   254,   202,  1073
  86. 940 DATA     58,    22,   183,     1,   125,   245,   235,   141,  1010
  87. 950 DATA    128,   252,    25,   117,     9,   199,     6,   187,   923
  88. 960 DATA      1,     5,     4,   233,   141,     0,   199,     6,   589
  89. 970 DATA    177,     1,   129,     6,   199,     6,   179,     1,   698
  90. 980 DATA    129,     6,   199,     6,   187,     1,    24,     4,   556
  91. 990 DATA    128,   252,    31,   117,     9,   199,     6,   187,   929
  92. 1000 DATA     1,    24,     4,   235,   110,   144,   128,   252,   898
  93. 1010 DATA    34,   117,     8,   198,     6,   189,     1,     1,   554
  94. 1020 DATA   235,    97,   144,   128,   252,    33,   117,    34,  1040
  95. 1030 DATA   198,     6,   190,     1,     0,   232,    11,     1,   639
  96. 1040 DATA   128,    62,   190,     1,   255,   116,    31,   232,  1015
  97. 1050 DATA    73,     0,   198,     6,   190,     1,     1,   246,   715
  98. 1060 DATA     6,   191,     1,     3,   117,     3,   232,   135,   688
  99. 1070 DATA     1,   195,   128,   252,     1,   116,     7,    60,   760
  100. 1080 DATA    13,   116,    12,   233,    31,   255,   199,     6,   865
  101. 1090 DATA   187,     1,   113,     3,   235,    37,   144,   232,   952
  102. 1100 DATA   180,     0,    50,   228,   205,    22,    80,   232,   997
  103. 1110 DATA   172,     0,    88,   233,    11,   255,   232,    92,  1083
  104. 1120 DATA     0,   138,   220,   128,   227,   136,   128,   228,  1205
  105. 1130 DATA   119,   177,     4,   210,   204,    10,   220,   232,  1176
  106. 1140 DATA    52,     0,   195,   139,    22,   183,     1,   232,   824
  107. 1150 DATA   228,   255,   232,    64,     0,   255,    22,   187,  1243
  108. 1160 DATA     1,   254,   194,    58,    22,   185,     1,   126,   841
  109. 1170 DATA   238,   232,    13,     0,   254,   198,   138,    22,  1095
  110. 1180 DATA   183,     1,    58,    54,   186,     1,   126,   223,   832
  111. 1190 DATA   195,   176,    13,   255,    22,   187,     1,   176,  1025
  112. 1200 DATA    10,   255,    22,   187,     1,   195,    83,   232,   985
  113. 1210 DATA    78,     0,    38,   137,    23,    91,    38,   138,   543
  114. 1220 DATA    62,    98,     0,    81,   185,     1,     0,   180,   607
  115. 1230 DATA     9,   205,    16,    89,   195,   232,    56,     0,   802
  116. 1240 DATA    38,   137,    23,    38,   138,    62,    98,     0,   534
  117. 1250 DATA   180,     8,   205,    16,   195,    82,    50,   228,   964
  118. 1260 DATA    51,   210,   205,    23,   208,   204,   115,     6,  1022
  119. 1270 DATA   199,     6,   187,     1,   113,     3,    90,   195,   794
  120. 1280 DATA   139,    30,   179,     1,   136,     7,    67,   137,   696
  121. 1290 DATA    30,   179,     1,    59,    30,   181,     1,   117,   598
  122. 1300 DATA     6,   199,     6,   187,     1,   113,     3,   195,   710
  123. 1310 DATA    38,   138,    30,    98,     0,    50,   255,   209,   818
  124. 1320 DATA   227,   129,   195,    80,     0,   195,    51,   210,  1087
  125. 1330 DATA   141,    54,   193,     1,   128,   250,    12,   124,   903
  126. 1340 DATA    10,    50,   210,   254,   198,   128,   254,     7,  1111
  127. 1350 DATA   124,     1,   195,   232,   159,   255,    46,   134,  1146
  128. 1360 DATA     4,   138,   220,   232,   128,   255,   254,   194,  1425
  129. 1370 DATA    70,   235,   225,   141,    54,   136,     1,    51,   913
  130. 1380 DATA   255,    51,   210,   185,    40,     0,    81,   232,  1054
  131. 1390 DATA   131,   255,    46,   137,     5,    71,    71,    46,   762
  132. 1400 DATA   138,     4,    70,   179,    71,   232,    94,   255,  1043
  133. 1410 DATA   254,   194,    89,   226,   233,    78,   254,   202,  1530
  134. 1420 DATA   128,    60,     0,   116,   248,   254,   194,   176,  1176
  135. 1430 DATA   219,   179,   199,   232,    72,   255,    50,   228,  1434
  136. 1440 DATA   205,    22,    60,    13,   116,    52,    60,     8,   536
  137. 1450 DATA   116,    27,   128,   252,     1,   116,    38,    60,   738
  138. 1460 DATA    46,   124,   228,    60,   122,   127,   224,   128,  1059
  139. 1470 DATA   250,    39,   125,   219,   179,    71,   232,    37,  1152
  140. 1480 DATA   255,   254,   194,   235,   210,   128,   250,    16,  1542
  141. 1490 DATA   126,   205,   176,     0,   179,    71,   232,    21,  1010
  142. 1500 DATA   255,   254,   202,   235,   194,   198,     6,   190,  1534
  143. 1510 DATA     1,   255,    50,   192,   232,     7,   255,   141,  1133
  144. 1520 DATA    62,   136,     1,    51,   246,    51,   210,   185,   942
  145. 1530 DATA    40,     0,   232,    16,   255,    46,   136,     5,   730
  146. 1540 DATA    71,    46,   139,     4,   138,   220,    70,    70,   758
  147. 1550 DATA   232,   235,   254,   254,   194,   226,   235,   195,  1825
  148. 1560 DATA    46,   198,     6,   190,     1,     0,    80,    83,   604
  149. 1570 DATA    81,    82,    30,     6,    14,    31,   184,    36,   464
  150. 1580 DATA    53,   205,    33,    83,     6,   186,   120,     6,   692
  151. 1590 DATA   184,    36,    37,   205,    33,   186,   152,     1,   834
  152. 1600 DATA   184,     2,    61,   205,    33,   114,    22,   139,   760
  153. 1610 DATA   216,    51,   201,    51,   210,   184,     2,    66,   981
  154. 1620 DATA   205,    33,   115,    27,   128,    62,   135,     1,   706
  155. 1630 DATA     0,   117,    37,   235,    31,   128,    62,   135,   745
  156. 1640 DATA     1,     0,   117,    28,   185,    32,     0,   180,   543
  157. 1650 DATA    60,   205,    33,   114,   231,   139,   216,   186,  1184
  158. 1660 DATA   129,     6,   139,    14,   179,     1,    43,   202,   713
  159. 1670 DATA   180,    64,   205,    33,   180,    62,   205,    33,   962
  160. 1680 DATA    31,    90,   184,    36,    37,   205,    33,     7,   623
  161. 1690 DATA    31,    90,    89,    91,    88,   195,   251,    80,   915
  162. 1700 DATA   228,    96,    60,    17,   116,     6,    88,    46,   657
  163. 1710 DATA   255,    46,   119,     1,   180,     2,   205,    22,   830
  164. 1720 DATA    36,    15,    60,     8,   117,   240,    46,   246,   768
  165. 1730 DATA     6,   191,     1,     4,   117,   232,    46,   128,   725
  166. 1740 DATA    14,   191,     1,     4,   156,    46,   255,    30,   697
  167. 1750 DATA   119,     1,    83,    81,    82,    85,    86,    87,   624
  168. 1760 DATA    30,     6,    14,    31,   184,    64,     0,   142,   471
  169. 1770 DATA   192,   232,   140,   254,    38,   255,    55,   232,  1398
  170. 1780 DATA   107,   252,   232,   131,   254,    38,   143,     7,  1164
  171. 1790 DATA   128,    38,   191,     1,   251,     7,    31,    95,   742
  172. 1800 DATA    94,    93,    90,    89,    91,    88,   207,    46,   798
  173. 1810 DATA   128,    14,   191,     1,     2,   156,    46,   255,   793
  174. 1820 DATA    30,   123,     1,   156,    46,   128,    38,   191,   713
  175. 1830 DATA     1,   253,   157,   251,   202,     2,     0,    83,   949
  176. 1840 DATA    46,   128,    62,   189,     1,     1,   116,    36,   579
  177. 1850 DATA    46,   128,    62,   190,     1,     1,   116,     6,   550
  178. 1860 DATA    91,    46,   255,    46,   127,     1,    46,   128,   740
  179. 1870 DATA    62,   192,     1,    10,   116,     8,    46,   128,   563
  180. 1880 DATA    62,   192,     1,     8,   117,   234,   251,   232,  1097
  181. 1890 DATA   246,   254,   235,   228,   251,    46,   139,    30,  1429
  182. 1900 DATA   177,     1,    46,    59,    30,   179,     1,   124,   617
  183. 1910 DATA     6,    46,   198,     6,   189,     1,     0,    46,   492
  184. 1920 DATA   138,     7,    60,    10,   117,     7,    46,   255,   640
  185. 1930 DATA     6,   177,     1,   235,   223,   128,   252,     1,  1023
  186. 1940 DATA   116,    11,   128,   252,     0,   117,   185,    67,   876
  187. 1950 DATA    46,   137,    30,   177,     1,   128,   203,     1,   723
  188. 1960 DATA    91,   202,     2,     0,   156,   251,   128,   252,  1082
  189. 1970 DATA    75,   117,     6,   157,    46,   255,    46,   131,   833
  190. 1980 DATA     1,    10,   228,   117,     2,   180,    76,    46,   660
  191. 1990 DATA   128,    14,   191,     1,     1,    46,   136,    38,   555
  192. 2000 DATA   192,     1,   157,   156,    46,   255,    30,   131,   968
  193. 2010 DATA     1,   156,    46,   128,    38,   191,     1,   254,   815
  194. 2020 DATA    46,   128,    62,   190,     1,     1,   117,     3,   548
  195. 2030 DATA   232,   133,   254,   157,   251,   202,     2,     0,  1231
  196. 2040 DATA   251,    46,   254,     6,   135,     1,    50,   192,   935
  197. 2050 DATA   207,   141,    22,     3,     1,   180,     9,   205,   768
  198. 2060 DATA    33,   246,    22,     0,     1,    51,   219,   140,   712
  199. 2070 DATA   200,    67,    59,   195,   142,   195,   116,    21,   995
  200. 2080 DATA   141,    54,     0,     1,   139,   254,   185,    16,   790
  201. 2090 DATA     0,   243,   166,    11,   201,   117,   234,   141,  1113
  202. 2100 DATA    22,    79,     1,   235,    12,   180,    48,   205,   782
  203. 2110 DATA    33,    60,     2,   115,     9,   141,    22,    99,   481
  204. 2120 DATA     1,   180,     9,   205,    33,   195,    70,   190,   883
  205. 2130 DATA   129,     0,   232,   146,     0,    80,   232,   142,   961
  206. 2140 DATA     0,     5,     2,     0,    91,   247,   227,    11,   583
  207. 2150 DATA   192,   116,    14,    61,    16,    39,   126,     3,   567
  208. 2160 DATA   184,    16,    39,     5,   129,     6,   163,   181,   723
  209. 2170 DATA     1,   184,    64,     0,   142,   192,    38,   128,   749
  210. 2180 DATA    62,   132,     0,     0,   117,     6,    38,   198,   553
  211. 2190 DATA     6,   132,     0,    24,   184,     9,    53,   205,   613
  212. 2200 DATA    33,   137,    30,   119,     1,   140,     6,   121,   587
  213. 2210 DATA     1,   186,   102,     5,   184,     9,    37,   205,   729
  214. 2220 DATA    33,   184,    19,    53,   205,    33,   137,    30,   694
  215. 2230 DATA   123,     1,   140,     6,   125,     1,   186,   191,   773
  216. 2240 DATA     5,   184,    19,    37,   205,    33,   184,    22,   689
  217. 2250 DATA    53,   205,    33,   137,    30,   127,     1,   140,   726
  218. 2260 DATA     6,   129,     1,   186,   215,     5,   184,    22,   748
  219. 2270 DATA    37,   205,    33,   184,    33,    53,   205,    33,   783
  220. 2280 DATA   137,    30,   131,     1,   140,     6,   133,     1,   579
  221. 2290 DATA   186,    60,     6,   184,    33,    37,   205,    33,   744
  222. 2300 DATA   161,    44,     0,   142,   192,   180,    73,   205,   997
  223. 2310 DATA    33,   139,    22,   181,     1,   205,    39,    51,   671
  224. 2320 DATA   192,   138,    28,   128,   251,    13,   116,    24,   890
  225. 2330 DATA    70,   128,   251,    44,   116,    18,   128,   235,   990
  226. 2340 DATA    48,   114,   238,   128,   251,     9,   119,   233,  1140
  227. 2350 DATA   183,    10,   246,   231,     2,   195,   235,   225,  1327
  228. 2360 DATA   195,     0,     0,     0,     0,     0,     0,     0,   195
  229.